Use mode-line-window-selected-p in tab-line-tab-name-format-default.

* lisp/tab-line.el (tab-line-tab-name-format-default):
Use the recently added function 'mode-line-window-selected-p'
for the face 'tab-line-tab-current' (bug#53629).

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 24033945f09c6cd46d0fd1d57c18cd070054ff77..4d9b5e0ab7a4c03a89e9a4aca0d12545b1f74245 100644 (file)
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -486,7 +486,7 @@ which the tab will represent."
                    (funcall tab-line-tab-name-function tab tabs)
                  (cdr (assq 'name tab))))
          (face (if selected-p
-                   (if (eq (selected-window) (old-selected-window))
+                   (if (mode-line-window-selected-p)
                        'tab-line-tab-current
                      'tab-line-tab)
                  'tab-line-tab-inactive)))